home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / AddOns / #streams.em# next >
Encoding:
Text File  |  1993-06-07  |  677 b   |  48 lines
  1. ;; Eulisp Module
  2. ;; Author: pab
  3. ;; File: streams.em
  4. ;; Date: Sun Jun  6 18:06:33 1993
  5. ;;
  6. ;; Project:
  7. ;; Description: 
  8. ;;
  9.  
  10. (defmodule streams
  11.   (standard0
  12.    list-fns
  13.    
  14.    )
  15.   ()
  16.   
  17.   ;; low level object
  18.   (defstruct file-stream ()
  19.     ((file accessor file-stream-file))
  20.     )
  21.  
  22.  
  23.   ;; Top level protocol
  24.  
  25.   ;; stream operations
  26.   (defgeneric open (stream))
  27.   
  28.  
  29.   ;; Format operations
  30.  
  31.   ;; Scan operations
  32.   
  33.   ;; end module
  34.   )
  35.  
  36.  
  37. (defclass <stream> ()
  38.   ((representation accessor stream-rep)
  39.    (functions accessor
  40.   )
  41.  
  42.    (read-fn accessor stream-read-fn)
  43.    (seek-fn accessor stream-seek-fn)
  44.    (write-fn accessor stream-write-fn)
  45.    (close-fn accessor stream-close-fn
  46.   )
  47.  
  48.